home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / modula2f.zip / DISKTEST.MOD < prev    next >
Text File  |  1992-05-19  |  1KB  |  38 lines
  1. MODULE Disk;
  2.  
  3. FROM DOSdisk IMPORT SetDrive, Chdir, GetDir, FindFirst, FindNext, FindAttr,
  4.                     FindTime, FindDate, FindLength, FindName;
  5. FROM Text IMPORT WriteCard, WriteString, Write, WriteLn;
  6. FROM InOut IMPORT WriteLongCard;
  7.  
  8. VAR error,attr,a,b,c:CARDINAL;
  9.     dir:ARRAY [0..12] OF CHAR;
  10.     current:ARRAY [0..64] OF CHAR;
  11.     name:ARRAY [0..12] OF CHAR;
  12.     len:LONGCARD;
  13.  
  14. BEGIN
  15.     SetDrive('c');
  16.     dir := '\DOS';
  17.     Chdir(dir,error);
  18.     WriteCard(error,5);
  19.     GetDir(current);
  20.     WriteLn;
  21.     WriteString(current); WriteLn;
  22.     FindFirst('*.COM',22,error);
  23.     WriteCard(error,5); WriteLn;
  24.     REPEAT
  25.         FindName(name);
  26.         WriteString(name);
  27.         FindLength(len);
  28.         WriteLongCard(len,8);
  29.         FindTime(a,b,c);
  30.         WriteCard(a,4);Write(':');WriteCard(b,1);WriteCard(c,1);
  31.         FindDate(a,b,c);
  32.         WriteCard(a,4);Write('-');WriteCard(b,2);Write('-');WriteCard(c,4);
  33.         FindAttr(attr);
  34.         WriteCard(attr,3);
  35.         WriteLn;
  36.         FindNext(error);
  37.     UNTIL error <> 0;
  38. END Disk.